inherited frm_CadOrdProd: Tfrm_CadOrdProd
  Left = 260
  Top = 111
  Caption = 'Cadastro de Ordem de Produ'#231#227'o'
  ClientHeight = 590
  ClientWidth = 591
  OldCreateOrder = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 591
    Height = 41
    object Label2: TLabel
      Left = 54
      Top = 12
      Width = 69
      Height = 14
      Caption = 'N'#250'm. Ordem'
    end
    object c_Ordem: TSpeedButton
      Left = 200
      Top = 10
      Width = 23
      Height = 22
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
    end
    object ed_Ordem: TEdit
      Left = 128
      Top = 10
      Width = 66
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 10
      TabOrder = 0
      OnEnter = ed_OrdemEnter
      OnExit = ed_OrdemExit
      OnKeyDown = ed_OrdemKeyDown
    end
  end
  inherited Panel2: TPanel
    Top = 41
    Width = 591
    Height = 482
    object p_dados: TGroupBox
      Left = 3
      Top = 3
      Width = 585
      Height = 113
      Align = alTop
      Caption = 'Dados da Ordem de Produ'#231#227'o '
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      object Label5: TLabel
        Left = 87
        Top = 33
        Width = 93
        Height = 14
        Caption = 'Data de Cadastro'
      end
      object Label6: TLabel
        Left = 34
        Top = 65
        Width = 146
        Height = 14
        Caption = 'Data Prevista p/ Finaliza'#231#227'o'
      end
      object ed_datacad: TDateEdit
        Left = 185
        Top = 32
        Width = 121
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 0
        OnEnter = ed_datacadEnter
      end
      object ed_dataprev: TDateEdit
        Left = 185
        Top = 64
        Width = 121
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 1
        OnEnter = ed_dataprevEnter
      end
      object rgSituacao: TRadioGroup
        Left = 384
        Top = 11
        Width = 185
        Height = 93
        Caption = 'Situa'#231#227'o: '
        ItemIndex = 0
        Items.Strings = (
          'Pendente'
          'Cancelada'
          'em Produ'#231#227'o'
          'Finalizada')
        TabOrder = 2
      end
    end
    object dbgOrdem: TDBGrid
      Left = 3
      Top = 312
      Width = 585
      Height = 127
      Align = alBottom
      DataSource = ds
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnDblClick = dbgOrdemDblClick
      OnKeyDown = dbgOrdemKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'Sequencia'
          Visible = False
        end
        item
          Expanded = False
          FieldName = 'Pro_Codigo'
          Title.Caption = 'Produto'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Descricao'
          Title.Caption = ' '
          Width = 255
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Quantidade'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Observacao'
          Title.Caption = 'Observa'#231#227'o'
          Visible = True
        end>
    end
    object Panel3: TPanel
      Left = 3
      Top = 439
      Width = 585
      Height = 40
      Align = alBottom
      TabOrder = 3
      object Label3: TLabel
        Left = 6
        Top = 6
        Width = 214
        Height = 28
        Caption = 
          'Clique duas vezes sobre o item para edit'#225'-lo'#13#10'Pressione [DEL] pa' +
          'ra excluir o item'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
    end
    object GroupBox1: TGroupBox
      Left = 3
      Top = 116
      Width = 585
      Height = 196
      Align = alClient
      Caption = 'Boletim: '
      TabOrder = 1
      object Label1: TLabel
        Left = 15
        Top = 23
        Width = 76
        Height = 14
        Caption = 'Boletim / Lote'
      end
      object c_alocacao: TSpeedButton
        Left = 170
        Top = 22
        Width = 23
        Height = 22
        Enabled = False
        Flat = True
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
          333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
          C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
          F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
          F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
          00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
          3333333373FF7333333333333000333333333333377733333333333333333333
          3333333333333333333333333333333333333333333333333333}
        NumGlyphs = 2
        OnClick = c_alocacaoClick
      end
      object ed_Boletim: TEdit
        Left = 98
        Top = 22
        Width = 66
        Height = 22
        BevelKind = bkFlat
        BorderStyle = bsNone
        MaxLength = 10
        TabOrder = 0
        OnEnter = ed_BoletimEnter
        OnExit = ed_BoletimExit
        OnKeyDown = ed_BoletimKeyDown
      end
      object dbgProduto: TDBGrid
        Left = 2
        Top = 57
        Width = 581
        Height = 137
        Align = alBottom
        DataSource = dsBOL
        Options = [dgTitles, dgIndicator, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 1
        TitleFont.Charset = ANSI_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Arial'
        TitleFont.Style = [fsBold]
        OnCellClick = dbgProdutoCellClick
        OnDrawColumnCell = dbgProdutoDrawColumnCell
        Columns = <
          item
            Expanded = False
            FieldName = 'Sequencia'
            ReadOnly = True
            Title.Caption = 'Seq.'
            Visible = False
          end
          item
            Expanded = False
            FieldName = 'Pro_Codigo'
            ReadOnly = True
            Title.Caption = 'Produto'
            Width = 109
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Descricao'
            ReadOnly = True
            Title.Caption = ' '
            Width = 259
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Quantidade'
            ReadOnly = True
            Width = 73
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Botao'
            Title.Caption = ' '
            Width = 94
            Visible = True
          end>
      end
    end
    object pnlItem: TPanel
      Left = 7
      Top = 176
      Width = 577
      Height = 177
      BevelInner = bvLowered
      BorderWidth = 2
      BorderStyle = bsSingle
      TabOrder = 4
      object lblStatus: TXPSectionLabel
        Left = 12
        Top = 12
        Width = 273
        Height = 24
        Caption = 'Inserindo item'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        Transparent = True
        Color = clBtnFace
        Line = clGray
        LineDraw = True
      end
      object Label4: TLabel
        Left = 24
        Top = 54
        Width = 55
        Height = 14
        Caption = 'Quantidade'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 19
        Top = 86
        Width = 60
        Height = 14
        Caption = 'Observa'#231#227'o'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        ParentFont = False
      end
      object edQtde: TRxCalcEdit
        Left = 85
        Top = 52
        Width = 121
        Height = 21
        AutoSize = False
        Ctl3D = False
        DecimalPlaces = 4
        DisplayFormat = ',0.0000##'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        NumGlyphs = 2
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 0
        OnKeyDown = edQtdeKeyDown
      end
      object edObs: TEdit
        Left = 84
        Top = 84
        Width = 477
        Height = 20
        CharCase = ecUpperCase
        Ctl3D = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Arial'
        Font.Style = []
        MaxLength = 200
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 1
      end
      object BitBtn2: TBitBtn
        Left = 155
        Top = 136
        Width = 128
        Height = 25
        Caption = 'OK'
        TabOrder = 2
        OnClick = BitBtn2Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000120B0000120B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
          555555555555555555555555555555555555555555FF55555555555559055555
          55555555577FF5555555555599905555555555557777F5555555555599905555
          555555557777FF5555555559999905555555555777777F555555559999990555
          5555557777777FF5555557990599905555555777757777F55555790555599055
          55557775555777FF5555555555599905555555555557777F5555555555559905
          555555555555777FF5555555555559905555555555555777FF55555555555579
          05555555555555777FF5555555555557905555555555555777FF555555555555
          5990555555555555577755555555555555555555555555555555}
        NumGlyphs = 2
      end
      object BitBtn1: TBitBtn
        Left = 291
        Top = 136
        Width = 128
        Height = 25
        Caption = 'Cancelar'
        TabOrder = 3
        OnClick = BitBtn1Click
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
          33333337777FF377FF3333993370739993333377FF373F377FF3399993000339
          993337777F777F3377F3393999707333993337F77737333337FF993399933333
          399377F3777FF333377F993339903333399377F33737FF33377F993333707333
          399377F333377FF3377F993333101933399377F333777FFF377F993333000993
          399377FF3377737FF7733993330009993933373FF3777377F7F3399933000399
          99333773FF777F777733339993707339933333773FF7FFF77333333999999999
          3333333777333777333333333999993333333333377777333333}
        NumGlyphs = 2
      end
    end
  end
  inherited Panel4: TPanel
    Top = 523
    Width = 591
    inherited btnGravar: TFlatButton
      OnClick = btnGravarClick
    end
    inherited BtnEliminar: TFlatButton
      OnClick = BtnEliminarClick
    end
    inherited btnlistagem: TFlatButton
      OnClick = btnlistagemClick
    end
  end
  inherited BS: TStatusBar
    Top = 571
    Width = 591
  end
  inherited RDP: TRDprint
    Left = 508
    Top = 252
  end
  object dsBOL: TDataSource
    DataSet = CDSBol
    Left = 347
    Top = 197
  end
  object CDSBol: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 379
    Top = 197
    object CDSBolSequencia: TStringField
      DisplayWidth = 5
      FieldName = 'Sequencia'
      Size = 5
    end
    object CDSBolPro_Codigo: TStringField
      FieldName = 'Pro_Codigo'
    end
    object CDSBolQuantidade: TFloatField
      FieldName = 'Quantidade'
      DisplayFormat = '0.0000'
    end
    object CDSBolDescricao: TStringField
      FieldName = 'Descricao'
      Size = 50
    end
    object CDSBolInserido: TStringField
      FieldName = 'Inserido'
      Size = 1
    end
    object CDSBolProd_Numero: TStringField
      FieldName = 'Prod_Numero'
      Size = 10
    end
  end
  object ds: TDataSource
    DataSet = CDS
    Left = 443
    Top = 197
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 475
    Top = 197
    object CDSSequencia: TStringField
      DisplayWidth = 5
      FieldName = 'Sequencia'
      Size = 5
    end
    object CDSPro_Codigo: TStringField
      FieldName = 'Pro_Codigo'
    end
    object CDSQuantidade: TFloatField
      FieldName = 'Quantidade'
      DisplayFormat = '0.0000'
    end
    object CDSDescricao: TStringField
      FieldName = 'Descricao'
      Size = 50
    end
    object CDSObservacao: TStringField
      FieldName = 'Observacao'
      Size = 200
    end
    object CDSProd_Numero: TStringField
      FieldName = 'Prod_Numero'
    end
  end
end
